THe each example demonstrates how a typical array-each would be written in 
SchaeferScript. Rather that just writing the element that you are currently
at you could do any task. NOTE: this sample is outdated and this process has
been made into a new each function. See Examples/Lists/exampleEach.sch
---------------------------------------------------------------------------


(define i 0)
(define offset 0)
(define li (list 1 2 3 4 5 6))

(define each
  (function (lis)
    (if (= (+ (length lis) offset) i)
      (display "")
      (do
        (write (first lis))
        (define lis (shift lis))
        (define i (+ i 1))
        (define offset (+ offset 1))
        (each lis)))))

(each li)
